home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / play < prev    next >
Text File  |  2002-10-30  |  579b  |  29 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx play <file> */
  4.  
  5. PARSE ARG file
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if file=='' then do
  10.     say 'missing parameter <file>'
  11.     return 20
  12. end
  13.  
  14. STOP
  15. CONTINUE
  16. PLAY file
  17.  
  18. GETSTATUS
  19. if ~(result==1) then do
  20.     if result<10 then say 'there is a problem, playback did not start'
  21.     else do
  22.         text='<no text>'
  23.         if result==10 then text='initDelfina failed'
  24.         if result==20 then text='file not found'
  25.         if result==30 then text='file not recognized as MPEG1 audio'
  26.         say 'Error #' || result || ': ' || text
  27.     end
  28. end
  29.